Family Forum 257/SOMC Family Forum 257 - Disc 2.iso/somc/SNEAK.dir/00001_Script_1

Text File | 1998-10-27 | 8KB | 242 lines

on prepareMovie
  global whichsneak -- THIS VARIBALE IS SET IN THE CALLING DIR
  set whichsneak to "family"
  sneakswap(WHICHSNEAK)
end prepareMovie





on startMovie
  glowClear()
end


on showpuppets TRUEFALSE
  repeat with x = 2 to 6
    set the visible of sprite x to TRUEFALSE
  end repeat
end


on puppetsneaks sneakONOFF
  repeat with x = 2 to 6
    puppetSprite x,sneakONOFF
  end repeat
  repeat with x = 52 to 56
    puppetSprite x,sneakONOFF
  end repeat
end

on sneakswap WHICHSNEAK
  global FAMG,GAMEG,KIDSG,MACG,PRODG,EDUG
  puppetsneaks (FALSE)
  showpuppets (FALSE)
  case WHICHSNEAK of
    "EDU":
      set the memberNum of sprite 2 to the memberNum of member "Snk FAM"
      set FAMG to 52
      set the memberNum of sprite 3 to the memberNum of member "Snk GAME"
      set GAMEG to 53
      set the memberNum of sprite 4 to the memberNum of member "Snk KIDS"
      set KIDSG to 54
      set the memberNum of sprite 5 to the memberNum of member "Snk MAC"
      set MACG to 55
      set the memberNum of sprite 6 to the memberNum of member "Snk PROD"
      set PRODG to 56

      set the memberNum of sprite 52 to the memberNum of member "Snk FAMG"
      set the memberNum of sprite 53 to the memberNum of member "Snk GAMEG"
      set the memberNum of sprite 54 to the memberNum of member "Snk KIDSG"
      set the memberNum of sprite 55 to the memberNum of member "Snk MACG"
      set the memberNum of sprite 56 to the memberNum of member "Snk PRODG"

    "FAMILY":
      set the memberNum of sprite 2 to the memberNum of member "Snk EDU"
      set EDUG to 52
      set the memberNum of sprite 3 to the memberNum of member "Snk GAME"
      set GAMEG to 53
      set the memberNum of sprite 4 to the memberNum of member "Snk KIDS"
      set KIDSG to 54
      set the memberNum of sprite 5 to the memberNum of member "Snk MAC"
      set MACG to 55
      set the memberNum of sprite 6 to the memberNum of member "Snk PROD"
      set PRODG to 56

      set the memberNum of sprite 52 to the memberNum of member "Snk EDUG"
      set the memberNum of sprite 53 to the memberNum of member "Snk GAMEG"
      set the memberNum of sprite 54 to the memberNum of member "Snk KIDSG"
      set the memberNum of sprite 55 to the memberNum of member "Snk MACG"
      set the memberNum of sprite 56 to the memberNum of member "Snk PRODG"


    "GAME":
      set the memberNum of sprite 2 to the memberNum of member "Snk EDU"
      set EDUG to 52
      set the memberNum of sprite 3 to the memberNum of member "Snk FAM"
      set FAMG to 53
      set the memberNum of sprite 4 to the memberNum of member "Snk KIDS"
      set KIDSG to 54
      set the memberNum of sprite 5 to the memberNum of member "Snk MAC"
      set MACG to 55
      set the memberNum of sprite 6 to the memberNum of member "Snk PROD"
      set PRODG to 56

      set the memberNum of sprite 52 to the memberNum of member "Snk eduG"
      set the memberNum of sprite 53 to the memberNum of member "Snk FAMG"
      set the memberNum of sprite 54 to the memberNum of member "Snk KIDSG"
      set the memberNum of sprite 55 to the memberNum of member "Snk MACG"
      set the memberNum of sprite 56 to the memberNum of member "Snk PRODG"



    "KIDS":
      set the memberNum of sprite 2 to the memberNum of member "Snk EDU"
      set EDUG to 52
      set the memberNum of sprite 3 to the memberNum of member "Snk FAM"
      set FAMG to 53
      set the memberNum of sprite 4 to the memberNum of member "Snk GAME"
      set GAMEG to 54
      set the memberNum of sprite 5 to the memberNum of member "Snk MAC"
      set MACG to 55
      set the memberNum of sprite 6 to the memberNum of member "Snk PROD"
      set PRODG to 56
      set the memberNum of sprite 52 to the memberNum of member "Snk EDUG"
      set the memberNum of sprite 53 to the memberNum of member "Snk FAMG"
      set the memberNum of sprite 54 to the memberNum of member "Snk GAMEG"
      set the memberNum of sprite 55 to the memberNum of member "Snk MACG"
      set the memberNum of sprite 56 to the memberNum of member "Snk PRODG"


    "MAC":
      set the memberNum of sprite 2 to the memberNum of member "Snk EDU"

      set the memberNum of sprite 3 to the memberNum of member "Snk FAM"
      set FAMG to 53
      set the memberNum of sprite 4 to the memberNum of member "Snk GAME"
      set GAMEG to 54
      set the memberNum of sprite 5 to the memberNum of member "Snk KIDS"
      set KIDSG to 55
      set the memberNum of sprite 6 to the memberNum of member "Snk PROD"
      set PRODG to 56

      set the memberNum of sprite 52 to the memberNum of member "Snk FAMG"
      set the memberNum of sprite 53 to the memberNum of member "Snk FAMG"
      set the memberNum of sprite 54 to the memberNum of member "Snk GAMEG"
      set the memberNum of sprite 55 to the memberNum of member "Snk KIDSG"
      set the memberNum of sprite 56 to the memberNum of member "Snk PRODG"

    "PROD":
      set the memberNum of sprite 2 to the memberNum of member "Snk EDU"
      set EDUG to 52
      set the memberNum of sprite 3 to the memberNum of member "Snk FAM"
      set FAMG to 53
      set the memberNum of sprite 4 to the memberNum of member "Snk GAME"
      set GAMEG to 54
      set the memberNum of sprite 5 to the memberNum of member "Snk KIDS"
      set KIDSG to 55
      set the memberNum of sprite 6 to the memberNum of member "Snk MAC"
      set MACG to 56

      set the memberNum of sprite 52 to the memberNum of member "Snk EDUG"
      set the memberNum of sprite 53 to the memberNum of member "Snk FAMG"
      set the memberNum of sprite 54 to the memberNum of member "Snk GAMEG"
      set the memberNum of sprite 55 to the memberNum of member "Snk KIDSG"
      set the memberNum of sprite 56 to the memberNum of member "Snk MACG"


  end case

  puppetsneaks (TRUE)
  UpdateStage
  showpuppets (TRUE)

end


--* This handler hides/shows the glow images. eg: glow(5,TRUE) *

on glow WHICHSPRITE, TRUEORFALSE
  set the visible of sprite WHICHSPRITE to TRUEORFALSE
end glow

--* TURN OF ALL GLOWS ON START
on glowClear
  repeat with i = 50 to 65
    glow(i)
  end repeat
end

--* This handler switches the text color for a glow effect. eg.textglow("Hello",1)*

on textglow WHICHMEMBER, COLORNUMBER
  set the foreColor of member WHICHMEMBER to COLORNUMBER
end textglow


--* THIS HANDLER OPEN AND CENTERS A MOVIE IN A WINDOW *

on openMIAW MYWINDOW
  set myRect=the rect of window MYWINDOW
  set myStage=the rect of the Stage
  set myWidth=(getAt(myRect,3)-getAt(myRect,1))
  set myHeight=(getAt(myRect,4)-getAt(myRect,2))
  set myLocH=((getAt(myStage,3)+getAt(myStage,1))/2)-(myWidth/2)
  set myLocV=((getAt(myStage,2)+getAt(myStage,4))/2)-(myHeight/2)
  set myNewRect=rect(myLocH,myLocV,(myLocH+myWidth),(myLocV+myHeight))
  set the rect of window MYWINDOW=myNewRect
  set the windowType of window MYWINDOW to 2
  open window MYWINDOW
end openMIAW


--* THESE HANDLERS TURN ON A GLOW, TURN POINTER A HAND AND PLAYS A SOUND *

on doRollover numsprite,SOUNDNUM
  glow(numsprite,TRUE)
  global finger,fingermask
  cursor[finger,fingermask]
  updatestage
  case SOUNDNUM of
    1:
      puppetsound 1, "rollsound"
      --  repeat while soundbusy(1)
      --  end repeat
    2:
      puppetsound 1, "rollsound2"
      --  repeat while soundbusy(1)
      --  end repeat
  end case
end



--* THIS HANDLER TURNS THE SPRITE PASSED TO IT TO INVISIBLE AND RESETS THE CURSOR

on doRollout numsprite
  glow(numsprite,FALSE)
  cursor 0
end

--* PLAYS A CLICK SOUND

on doClick
  puppetsound 1,"clicksound"
  updateStage
end



-- Delays for x number of seconds
on timedelay SECONDS
  startTimer
  repeat while the timer < SECONDS * 60
    nothing
  end repeat
end